home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / telengrd.d64 / disk.char.create (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-03  |  1.1 KB  |  41 lines
  1. 0 REM *************************
  2. 1 REM *   DISK.CHAR.CREATE    *
  3. 2 REM *  BY JIM PENDERGRAFT   *
  4. 3 REM *        9/8/83         *
  5. 4 REM *-----------------------*
  6. 5 REM * ANSWER THE QUESTIONS  *
  7. 6 REM * AND FOLLOW DIRECTIONS *
  8. 7 REM * AND IT WILL CONSTRUCT *
  9. 8 REM * A TELENGARD CHARACTER *
  10. 9 REM *************************
  11. 10 INPUT"NAME";A$
  12. 11 OPEN2,8,2,"@0:"+A$+".PLR,S,W"
  13. 12 GOSUB100:A$="0":GOSUB100
  14. 13 INPUT"STRENGTH";A$:GOSUB100
  15. 14 INPUT"INTELLIGENCE";A$:GOSUB100
  16. 15 INPUT"WISDOM";A$:GOSUB100
  17. 16 INPUT"CONSTITUTION";C:A$=STR$(C):GOSUB100
  18. 17 INPUT"DEXTERITY";A$:GOSUB100
  19. 18 INPUT"CHARISMA";A$:GOSUB100
  20. 19 INPUT"LEVEL";L:A$=STR$(L):GOSUB100:A$="0":GOSUB100
  21. 20 INPUT"GOLD";A$:GOSUB100
  22. 21 A=500*2^(L):A$=STR$(A):GOSUB100:GOSUB100
  23. 30 A$=STR$(L*C):GOSUB100
  24. 40 A$="25":GOSUB100
  25. 41 A$="13":GOSUB100
  26. 42 A$="0":GOSUB100
  27. 50 A=0:FORN=1TOL:A=A+N:NEXT:A$=STR$(A):GOSUB100:GOSUB100
  28. 60 INPUT"SWORD BONUS";A$:GOSUB100:A$="0":GOSUB100
  29. 61 INPUT"ARMOR BONUS";A$:GOSUB100:A$="0":GOSUB100
  30. 62 INPUT"SHIELD BONUS";A$:GOSUB100:A$="0":GOSUB100
  31. 63 INPUT"CLOAK BONUS";A$:GOSUB100:A$="0":GOSUB100
  32. 64 INPUT"BOOTS BONUS";A$:GOSUB100:A$="0":GOSUB100
  33. 65 INPUT"REG. BONUS";A$:GOSUB100:A$="0":GOSUB100
  34. 66 INPUT"PROT BONUS";A$:GOSUB100:A$="0":GOSUB100
  35. 67 INPUT"SCROLLS";A$:GOSUB100:A$="0":GOSUB100
  36. 68 INPUT"HEAL POT.";A$:GOSUB100:A$="0":GOSUB100
  37. 69 INPUT"STR. POT.";A$:GOSUB100:A$="0":GOSUB100
  38. 70 FORN=1TO10:GOSUB100:NEXT
  39. 99 CLOSE2:END
  40. 100 PRINT#2,A$:RETURN
  41.